GetDir                   Returns Current Directory of a Given Drive

 GetDir(DriveNum : Integer; var DirPath : <string>);                     [TP]

    Returns the current (default) directory of a given disk drive. The
    directory returned includes the drive designator.

        DriveNum    Disk drive number; 0 is the current drive, 1 is A;, 2
                    is B:, and so forth.

         DirPath    Returns (as a string) the default directory of the
                    specified drive. Make sure this string is at least 66
                    characters long.

  -------------------------------- Example ---------------------------------

           GetDir(0,Name)           { Default directory of current drive. }
                                    { If the current drive is C: and the }
                                    { directory is \TEST, the string }
                                    { returned is C:\TEST }